
use strict;
my %food;
%food = (
	'apple'=>3,
	'pear'=>5,
	'chicken wing'=>2,
);

foreach (sort {$food{$a}<=>$food{$b}} keys %food)
{
	print $_,"  ",$food{$_},"\n";
}
